home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ham Radio 2000
/
Ham Radio 2000.iso
/
ham2000
/
misc
/
nshadow
/
para.bas
< prev
next >
Wrap
BASIC Source File
|
1994-06-23
|
943b
|
29 lines
5 PRINT " ***PARALLEL RESONANCE***"
10 PRINT
15 PRINT "WHAT IS THE VALUE OF (C) IN Pf?"
20 INPUT "ENTER";C
25 PRINT "WHAT IS THE VALUE OF (L) IN uH?"
30 INPUT "ENTER";L
35 PRINT "WHAT IS THE VALUE OF THE PARALLEL RESISTANCE(R)?"
40 INPUT "ENTER";R
45 P=3.141592654#
50 Y=180/P
55 FR=10^3/((2*P)*((L*C)^.5))
60 PRINT "WHAT IS THE DESIRED FREQUENCY (F) IN MHz?"
65 INPUT "ENTER";F
70 FA=F*10^6
75 LA=L/10^6
80 CA=C/10^12
85 Z=(R*LA*2*P*FA)/((R^2*(1-4*P^2*FA^2*LA*CA)^2+4*P^2*FA^2*LA^2)^.5)
90 A=90-(Y*(ATN((2*P*FA*LA)/(R*(1-4*P^2*FA^2*LA*CA)))))
95 PRINT
100 PRINT " ***ANSWERS***"
105 PRINT
110 PRINT C,"CAPACITY (C) IN Pf."
115 PRINT L,"INDUCTANCE (L) IN uH."
120 PRINT R,"PARALLEL RESISTANCE (R) IN OHMS."
125 PRINT FR,"RESONANT FREQUENCY (FR) IN MHz."
130 PRINT F,"DESIRED FREQUENCY (F) IN MHz."
135 PRINT Z,"IMPEDANCE (Z) IN OHMS."
140 PRINT A,"PHASE ANGLE (A) IN DEGREES."